\section{El script}

Como ayuda al usuario se proporciona junto con la
distribución de \texttt{Bench::Test} el script
\texttt{maketest} que facilita al usuario la
utilización del módulo. Se trata de un script
sencillo cuya tarea es crear un objeto de la
clase \texttt{Bench::Test} e invocar al método
\texttt{make\_test}. El constructor
toma los parámetros
desde un fichero de configuración que, por 
defecto, se llama \texttt{maketest.conf}.

La forma de uso es la siguiente:

\begin{verbatim}
   $ maketest [-f configfile]
\end{verbatim}


\section{Código}

A continuación se muestra el contenido íntegro
del script \texttt{maketest}:

\begin{verbatim}
   #!/usr/bin/perl -w

   use strict;
   use Pod::Usage;
   use Getopt::Long;
   use Bench::Test;
   use Carp;

   sub version {
     print "Version $Bench::Test::VERSION\n";
     exit;
   }

   sub usage {
     print "Usage:\n  $0 [-f configfile]\n";
     exit;
   }
   sub man {
     pod2usage(
       -exitval => 1,
       -verbose => 2
     );
   }

   # MAIN ==========================

   my $config_file = './maketest.conf';  #maketest.conf by default

   GetOptions(
     'version' => \&version,
     'usage'   => \&usage,
     'help'    => \&man,
     'file=s'  => \$config_file
   ) or croak usage();

   my $bench = new Bench::Test(
                      config_file => $config_file,
                   );

   $bench->make_tests;
\end{verbatim}
